* Analyses for "Congressional Pay and Responsiveness in the Antebellum U.S. House of Representatives," Studies in American Political Development (2022)
* Note: Proportional Reduction in Error (PRE) for the probit models in Table 6 and in the appendix is calculated using the PRE ado routine
* Table 1
tab rc432 democrat
tab rc432 whig
tab rc432 republican
tab rc432 american
* Table 2
tab rc432 smithkn
* Table 3
tab rc432 opponoscat
ttest opponoscat, by(south)
* Table 4
tab rc432 preelect
* Table 5
tab rc432 ranagain if preelect==0
* Table 6
probit rc432 margin01 freshman ranagain dwnom1 dwnom2 logdist if rc432==0 | rc432==1, robust
probit rc432 margin01 freshman ranagain dwnom1 dwnom2 democrat republican american logdist if rc432==0 | rc432==1, robust
probit rc432 margin01 opponoscat freshman ranagain dwnom1 dwnom2 democrat republican american logdist if rc432==0 | rc432==1, robust
probit rc432 margin01 opponoscat freshman ranagain preelect dwnom1 dwnom2 democrat republican american logdist if rc432==0 | rc432==1, robust
* Table 7
tab rc432 ranagain if preelect==0
tab rc432 elected35 if preelect==0
* Table 8
heckprobit elected35 rc432yes rc432abst margin01 opponoscat qualchal hmeddist1 hmeddist2 voterate tenure democrat republican american if preelect==0, select(ranagain=rc432yes rc432abst margin01 opponoscat hmeddist1 hmeddist2 voterate tenure age logdist democrat republican american) robust
* Figure 1
probit rc432 c.margin01 c.opponoscat i.freshman i.ranagain i.preelect c.dwnom1 c.dwnom2 i.democrat i.republican i.american c.logdist if rc432==0 | rc432==1, robust nolog
margins, dydx(ranagain margin01 opponoscat preelect democrat republican american) post
coefplot, xline(0) xtitle(Average Marginal Effect) coeflabels(margin01="Margin of Victory" 1.ranagain="Sought Reelection" 1.preelect="Roll Call After Election" opponoscat="No. of Opponents" 1.democrat="Democrat" 1.republican="Republican" 1.american="American") msymbol(o) mcolor(black) msize(medium) levels(99.9 99 95) legend(order(0 "Confidence Interval:" 1 "99.9%" 2 "99%" 3 "95%") rows(1) position(7))
* Figure 2
probit rc432 c.margin01 c.opponoscat i.freshman i.ranagain i.preelect c.dwnom1 c.dwnom2 i.democrat i.republican i.american c.logdist if rc432==0 | rc432==1, robust nolog
margins, at(opponoscat=(1(1)5)) post
coefplot, xtitle("Probability of Support") ytitle("Number of Opponents") xline(.5) msymbol(o) mcolor(black) msize(medium) coeflabels(1._at="1" 2._at="2" 3._at="3" 4._at="4" 5._at="5") levels(99.9 99 95) legend(order(0 "Confidence Interval:" 1 "99.9%" 2 "99%" 3 "95%") rows(1) position(7)) citype(probit) sort(,descending)
* Figure 3
probit ranagain i.rc432yes i.rc432abst margin01 opponoscat hmeddist1 hmeddist2 voterate tenure age logdist democrat republican american if preelect==0, robust
margins, at(rc432yes=(0 1) rc432abst=(0 1)) post
coefplot, drop(4._at) xtitle("Probability of Seeking Reelection") ytitle("") msymbol(o) mcolor(black) msize(medium) order(1._at 3._at 2._at) coeflabels(1._at="Voted Nay" 2._at="Did Not Vote" 3._at="Voted Yea") levels(99.9 99 95) legend(order(0 "Confidence Interval:" 1 "99.9%" 2 "99%" 3 "95%") rows(1) position(7)) citype(probit) sort(,descending)

* Analyses for the Supplemental Appendix
* Table A1: alternate roll call vote model including the "abstain" option using multinomial probit
mprobit rc432 margin01 opponoscat freshman ranagain preelect dwnom1 dwnom2 democrat republican american logdist, robust

* Table A2: alternate roll call vote model omitting California representatives
probit rc432 margin01 opponoscat freshman ranagain preelect dwnom1 dwnom2 democrat republican american logdist if (rc432==0 | rc432==1) & V90~="CA", robust

* Table A3: alternate roll call vote model including measures of member wealth and profession
probit rc432 margin01 opponoscat freshman ranagain dwnom1 dwnom2 democrat republican american logdist L_real_1850 if rc432==0 | rc432==1, robust
probit rc432 margin01 opponoscat freshman ranagain dwnom1 dwnom2 democrat republican american logdist L_real_1860 if rc432==0 | rc432==1, robust
probit rc432 margin01 opponoscat freshman ranagain dwnom1 dwnom2 democrat republican american logdist L_total_1860 if rc432==0 | rc432==1, robust
probit rc432 margin01 opponoscat freshman ranagain dwnom1 dwnom2 democrat republican american logdist lawyer farmer if rc432==0 | rc432==1, robust

* Table A4: alternate roll call vote model including the Know Nothings roster from Smith and the final vote to elect Banks speaker
probit rc432 margin01 opponoscat freshman ranagain preelect dwnom1 dwnom2 banks logdist if rc432==0 | rc432==1, robust
probit rc432 margin01 opponoscat freshman ranagain preelect dwnom1 dwnom2 smithkn logdist if rc432==0 | rc432==1, robust
probit rc432 margin01 opponoscat freshman ranagain preelect dwnom1 dwnom2 banks smithkn logdist if rc432==0 | rc432==1, robust

* Table A5: alternate roll call vote model including indicator of American Party opponent
probit rc432 margin01 opponoscat freshman ranagain preelect dwnom1 dwnom2 democrat republican american ameroppo logdist if rc432==0 | rc432==1, robust

* Table A6: alternate roll call vote model including interaction of Democrat and southern state
probit rc432 margin01 opponoscat freshman ranagain preelect dwnom1 dwnom2 i.democrat##i.south republican american logdist if rc432==0 | rc432==1, robust
probit rc432 margin01 opponoscat freshman ranagain preelect i.democrat##i.south republican american logdist if rc432==0 | rc432==1, robust

* Table A7: alternate reelection selection model including interaction of Democrat and southern state
heckprobit elected35 rc432yes rc432abst margin01 opponoscat qualchal hmeddist1 hmeddist2 voterate tenure i.democrat##i.south republican american if preelect==0, select(ranagain=rc432yes rc432abst margin01 opponoscat hmeddist1 hmeddist2 voterate tenure age logdist i.democrat##i.south republican american) robust

* Table A8: alternate reelection model omitting variables for the vote on S. 398
probit ranagain rc432yes rc432abst margin01 opponoscat hmeddist1 hmeddist2 voterate tenure age logdist democrat republican american if preelect==0, robust
	* In order for an apples-to-apples comparison of the two models, the specification omitting the dummies for the vote on S.398 uses the same observations as in the original model
probit ranagain margin01 opponoscat hmeddist1 hmeddist2 voterate tenure age logdist democrat republican american if preelect==0 & e(sample), robust
